home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 May: Tool Chest / Dev.CD May 00 TC.toast / pc / tool chest / development kits / mpw related / dts mpw goodies / markpascal < prev    next >
Encoding:
Text File  |  1990-09-14  |  473 b   |  22 lines
  1. #    MarkPascal
  2. #    based on SignPosts by Russ Wetmore
  3.  
  4. Set white '[ ∂t]'
  5. Set reserved '[A-Za-z_][A-Za-z0-9_.]*'
  6. Alias window.§ 'Catenate "{window}".§'
  7.  
  8. Set Exit 0
  9. For window in {"Parameters"}
  10.     For token In PROGRAM UNIT FUNCTION PROCEDURE
  11.         Find • "{window}"
  12.         Loop
  13.             Find /•{white}*{token}{white}+{reserved}/ "{window}"
  14.             Break If {Status} != 0
  15.             Find Δ(§Δ:\{white}\) "{window}"
  16.             Find /{reserved}/ "{window}"
  17.             Mark -y § "`window.§`" "{window}"
  18.         End
  19.     End
  20. End
  21. Set Exit 1
  22.